home *** CD-ROM | disk | FTP | other *** search
/ Item MB Quick & Easy 2.0 / Item MB Quick & Easy 2.0.iso / mbfacad / mb35603.lsp < prev    next >
Text File  |  1998-03-15  |  2KB  |  57 lines
  1. ;=============356.03 LAUFROLLE 6
  2.  
  3. (EAITDBL "0035603")
  4. (EAITmsg "mb_mld10" "\n" "002" nil) (princ "........") (princ EAITnrx) (princ "\n")
  5. (princ)
  6.  
  7. (defun C:35603V1( / P1 Wi)
  8.      (EAITDBL "0035603")
  9.      (princ (strcat "\n\n" EAITbez1))
  10.      (EAITvari)
  11.      (EAITvars)
  12.      (setvar "ORTHOMODE" 0)
  13.      (EAITbpt nil nil nil)
  14.      (setq P1 (getpoint))
  15.      (if (= P1 nil)(setq P1 (EAITrpt)))
  16.      (setvar "OSMODE" 0)
  17.      (setvar "ORTHOMODE" 1)
  18.      (command EAITege (strcat EAITpfn "35603V1") P1 "" "" "")
  19.  
  20.      (setq Wi (EAITbw))
  21.      (command EAITege (strcat EAITpfn "EAITinfo") (polar P1 (+ Wi (EAITgib 45)) 6.5) "" "" ""
  22.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  23.      )
  24.  
  25.      (EAITvarz2)
  26.      (princ)
  27.  
  28. );defun V1
  29.  
  30.  
  31. (defun C:35603S1( / P1 Wi)
  32.      (EAITDBL "0035603")
  33.      (princ (strcat "\n\n" EAITbez1))
  34.      (EAITvari)
  35.      (EAITvars)
  36.      (setvar "ORTHOMODE" 0)
  37.      (EAITbpt EAITofzen 4 nil)
  38.      (setq P1 (getpoint))
  39.      (if (= P1 nil)(setq P1 (EAITrpt)))
  40.      (setvar "OSMODE" 0)
  41.      (setvar "ORTHOMODE" 1)
  42.      (EAITmsg "mb_mld10" "\n" "003" nil)            ;Drehwinkel
  43.      (command EAITege (strcat EAITpfn "35603S1") P1 "" "" EAITofkei pause)
  44.  
  45.      (setq Wi (EAITbw))
  46.      (command EAITege (strcat EAITpfn "EAITinfo") (polar P1 (+ Wi (EAITgib 74)) 8) "" "" ""
  47.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  48.      )
  49.  
  50.      (EAITvarz2)
  51.      (princ)
  52.  
  53. );defun S1
  54.  
  55. (princ)
  56.  
  57.